home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / bbbbs84.lha / rexx / TestArc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-12-05  |  1.6 KB  |  61 lines
  1. /* $VER: TestArc.rexx 8.3 (5.12.94)
  2. copyright 1990-94 Richard Lee Stockton
  3.        FREELY DISTRIBUTABLE
  4.  
  5.      Required in C: directory:
  6.     arc dms lha unarj unzip zoo
  7. */
  8.  
  9. OPTIONS FAILAT 999
  10. CR='0D'x
  11. LF='0A'x
  12.  
  13. PARSE ARG argname .
  14. endtest=UPPER(RIGHT(argname,4))
  15. CALL DELETE('RAM:file_id.diz')
  16.  
  17. arcomm=''
  18. IF endtest='.ARC' THEN arcomm='c:arc >RAM:TestArc.txt t'
  19. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj >RAM:TestArc.txt t'
  20. ELSE IF endtest='.DMS' THEN arcomm='c:dms >RAM:TestArc.txt VIEW'
  21. ELSE IF endtest='.ZOO' THEN arcomm='c:zoo >RAM:TestArc.txt -t'
  22. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip >RAM:TestArc.txt -t'
  23. ELSE IF endtest='.LHA' | endtest='.LZH' THEN
  24.   arcomm='c:lha >RAM:TestArc.txt -N t'
  25.  
  26. IF arcomm='' THEN EXIT 0
  27. IF ~EXISTS(WORD(arcomm,1)) THEN
  28.   DO
  29.     SAY 'Can''t check archive integrity,' WORD(arcomm,1) 'does not exist!'CR
  30.     EXIT 0
  31.   END
  32.  
  33. SAY 'Testing archive integrity...'CR
  34. ADDRESS COMMAND arcomm argname
  35. err=RC
  36. IF err>0 THEN
  37.   DO
  38.     CALL DELAY(100)
  39.     IF OPEN(f,'RAM:TestArc.txt','R')~=0 THEN
  40.       DO i=1 WHILE ~EOF(f)
  41.         SAY READLN(f)||CR
  42.       END
  43.     CALL CLOSE(f)
  44.     EXIT err
  45.   END
  46.  
  47. arcomm=''
  48. IF endtest='.ARC' THEN arcomm='c:arc >RAM:TestArc.txt e'
  49. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj >RAM:TestArc.txt e'
  50. ELSE IF endtest='.ZOO' THEN arcomm='c:zoo >RAM:TestArc.txt -e'
  51. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip >RAM:TestArc.txt -j'
  52. ELSE IF endtest='.LHA' | endtest='.LZH' THEN
  53.   arcomm='c:lha >TestArc.txt -Nx0 e'
  54.  
  55. IF arcomm='' | ~EXISTS(WORD(arcomm,1)) THEN EXIT 0
  56. ADDRESS COMMAND 'CD RAM:'LF||arcomm argname 'file_id.diz'
  57. SAY ' - Archive tested OK -'CR
  58. EXIT 0
  59.  
  60. /* TestArc.rexx */
  61.